home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Database Designers / Rational Rose 2000 / Rational Setup.EXE / common / lib / CQSquidLoad.pm < prev    next >
Encoding:
Perl POD Document  |  2000-02-04  |  4.4 KB  |  173 lines
  1. # This file was automatically generated by SWIG
  2. package CQSquidLoad;
  3. require Exporter;
  4. require DynaLoader;
  5. @ISA = qw(Exporter DynaLoader);
  6. package CQSquidLoadc;
  7. bootstrap CQSquidLoad;
  8. var_CQSquidLoad_init();
  9. @EXPORT = qw( );
  10.  
  11. # ---------- BASE METHODS -------------
  12.  
  13. package CQSquidLoad;
  14.  
  15. sub TIEHASH {
  16.     my ($classname,$obj) = @_;
  17.     return bless $obj, $classname;
  18. }
  19.  
  20. sub CLEAR { }
  21.  
  22. sub this {
  23.     my $ptr = shift;
  24.     return tied(%$ptr);
  25. }
  26.  
  27.  
  28. # ------- FUNCTION WRAPPERS --------
  29.  
  30. package CQSquidLoad;
  31.  
  32.  
  33. ############# Class : CQSquidLoad ##############
  34.  
  35. package CQSquidLoad;
  36. @ISA = qw(  );
  37. %OWNER = ();
  38. %ITERATORS = ();
  39. sub new {
  40.     my $self = shift;
  41.     my @args = @_;
  42.     $self = CQSquidLoadc::new_CQSquidLoad(@args);
  43.     return undef if (!defined($self));
  44.     bless $self, "CQSquidLoad";
  45.     $OWNER{$self} = 1;
  46.     my %retval;
  47.     tie %retval, "CQSquidLoad", $self;
  48.     return bless \%retval,"CQSquidLoad";
  49. }
  50.  
  51. sub DESTROY {
  52.     my $self = tied(%{$_[0]});
  53.     delete $ITERATORS{$self};
  54.     if (exists $OWNER{$self}) {
  55.         CQSquidLoadc::delete_CQSquidLoad($self);
  56.         delete $OWNER{$self};
  57.     }
  58. }
  59.  
  60. sub SquidLoadStatus {
  61.     my @args = @_;
  62.     $args[0] = tied(%{$args[0]});
  63.     my $result = CQSquidLoadc::CQSquidLoad_SquidLoadStatus(@args);
  64.     return $result;
  65. }
  66. sub SquidExpectedVersion {
  67.     my @args = @_;
  68.     $args[0] = tied(%{$args[0]});
  69.     my $result = CQSquidLoadc::CQSquidLoad_SquidExpectedVersion(@args);
  70.     return $result;
  71. }
  72. sub SquidActualVersion {
  73.     my @args = @_;
  74.     $args[0] = tied(%{$args[0]});
  75.     my $result = CQSquidLoadc::CQSquidLoad_SquidActualVersion(@args);
  76.     return $result;
  77. }
  78. sub SubmitCommitCQActivity {
  79.     my @args = @_;
  80.     $args[0] = tied(%{$args[0]});
  81.     my $result = CQSquidLoadc::CQSquidLoad_SubmitCommitCQActivity(@args);
  82.     return $result;
  83. }
  84. sub ModifyCommitCQActivity {
  85.     my @args = @_;
  86.     $args[0] = tied(%{$args[0]});
  87.     my $result = CQSquidLoadc::CQSquidLoad_ModifyCommitCQActivity(@args);
  88.     return $result;
  89. }
  90. sub DeleteCommitCQActivity {
  91.     my @args = @_;
  92.     $args[0] = tied(%{$args[0]});
  93.     my $result = CQSquidLoadc::CQSquidLoad_DeleteCommitCQActivity(@args);
  94.     return $result;
  95. }
  96. sub SubmitCommitCQProject {
  97.     my @args = @_;
  98.     $args[0] = tied(%{$args[0]});
  99.     my $result = CQSquidLoadc::CQSquidLoad_SubmitCommitCQProject(@args);
  100.     return $result;
  101. }
  102. sub ModifyCommitCQProject {
  103.     my @args = @_;
  104.     $args[0] = tied(%{$args[0]});
  105.     my $result = CQSquidLoadc::CQSquidLoad_ModifyCommitCQProject(@args);
  106.     return $result;
  107. }
  108. sub DeleteCommitCQProject {
  109.     my @args = @_;
  110.     $args[0] = tied(%{$args[0]});
  111.     my $result = CQSquidLoadc::CQSquidLoad_DeleteCommitCQProject(@args);
  112.     return $result;
  113. }
  114. sub StartWork {
  115.     my @args = @_;
  116.     $args[0] = tied(%{$args[0]});
  117.     my $result = CQSquidLoadc::CQSquidLoad_StartWork(@args);
  118.     return $result;
  119. }
  120. sub RefreshCQActivityFromSUM {
  121.     my @args = @_;
  122.     $args[0] = tied(%{$args[0]});
  123.     my $result = CQSquidLoadc::CQSquidLoad_RefreshCQActivityFromSUM(@args);
  124.     return $result;
  125. }
  126. sub RefreshCQProjectFromSUM {
  127.     my @args = @_;
  128.     $args[0] = tied(%{$args[0]});
  129.     my $result = CQSquidLoadc::CQSquidLoad_RefreshCQProjectFromSUM(@args);
  130.     return $result;
  131. }
  132. sub IsCQActViewFieldReadOnly {
  133.     my @args = @_;
  134.     $args[0] = tied(%{$args[0]});
  135.     my $result = CQSquidLoadc::CQSquidLoad_IsCQActViewFieldReadOnly(@args);
  136.     return $result;
  137. }
  138. sub IsCQActStreamFieldReadOnly {
  139.     my @args = @_;
  140.     $args[0] = tied(%{$args[0]});
  141.     my $result = CQSquidLoadc::CQSquidLoad_IsCQActStreamFieldReadOnly(@args);
  142.     return $result;
  143. }
  144. sub IsCQActProjectFieldReadOnly {
  145.     my @args = @_;
  146.     $args[0] = tied(%{$args[0]});
  147.     my $result = CQSquidLoadc::CQSquidLoad_IsCQActProjectFieldReadOnly(@args);
  148.     return $result;
  149. }
  150. sub DISOWN {
  151.     my $self = shift;
  152.     my $ptr = tied(%$self);
  153.     delete $OWNER{$ptr};
  154.     };
  155.  
  156. sub ACQUIRE {
  157.     my $self = shift;
  158.     my $ptr = tied(%$self);
  159.     $OWNER{$ptr} = 1;
  160.     };
  161.  
  162.  
  163. # ------- VARIABLE STUBS --------
  164.  
  165. package CQSquidLoad;
  166.  
  167. *CQSQUIDLOAD_SUCCESS = *CQSquidLoadc::CQSQUIDLOAD_SUCCESS;
  168. *CQSQUIDLOAD_NOT_LOADED = *CQSquidLoadc::CQSQUIDLOAD_NOT_LOADED;
  169. *CQSQUIDLOAD_NOT_FOUND = *CQSquidLoadc::CQSQUIDLOAD_NOT_FOUND;
  170. *CQSQUIDLOAD_VERSION_MISMATCH = *CQSquidLoadc::CQSQUIDLOAD_VERSION_MISMATCH;
  171. *CQSQUIDLOAD_UNKNOWN = *CQSquidLoadc::CQSQUIDLOAD_UNKNOWN;
  172. 1;
  173.